From 46171778e5c40ab1f863a6bfe76f06cbdf69d468 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Oct 2011 00:27:46 -0700 Subject: [PATCH] Small fix for f90-next-statement. * lisp/progmodes/f90.el (f90-next-statement): Ignore preprocessor lines, like f90-previous-statement does. --- lisp/ChangeLog | 11 ++++++++--- lisp/progmodes/f90.el | 2 +- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 67736b34ddf..cbc2286d15c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,13 @@ +2011-10-11 Glenn Morris + + * progmodes/f90.el (f90-next-statement): Ignore preprocessor lines, + like f90-previous-statement does. + 2011-10-11 Thierry Volpiatto - * lisp/eshell/eshell.el (eshell-command): History have to be saved - only in interactive use to avoid error. - + * lisp/eshell/eshell.el (eshell-command): History should be saved + only in interactive use, to avoid error. + 2011-10-11 Stefan Monnier * minibuffer.el (completion-file-name-table): Fix last change, diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 3d5c8a97835..007203a8b21 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -1578,7 +1578,7 @@ Return nil if no later statement is found." (while (and (setq not-last-statement (and (zerop (forward-line 1)) (not (eobp)))) - (looking-at "[ \t0-9]*\\(!\\|$\\)"))) + (looking-at "[ \t0-9]*\\(!\\|$\\|#\\)"))) not-last-statement)) (defun f90-beginning-of-subprogram () -- 2.30.2